COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	@x modify the output density table for dither font
C00006 00003	@x load the dither font
C00007 ENDMK
C⊗;
@x modify the output density table for dither font
d[0]:=0.0;
d[1]:=0.03;
d[2]:=0.06;
d[3]:=0.08;
d[4]:=0.095;@/
d[5]:=0.11;
d[6]:=0.125;
d[7]:=0.14;
d[8]:=0.155;
d[9]:=0.17;@/
d[10]:=0.175;
d[11]:=0.2;
d[12]:=0.215;
d[13]:=0.23;
d[14]:=0.245;@/
d[15]:=0.26;
d[16]:=0.27;
d[17]:=0.28;
d[18]:=0.29;
d[19]:=0.295;@/
d[20]:=0.3;
d[21]:=0.305;
d[22]:=0.31;
d[23]:=0.315;
d[24]:=0.32;@/
d[25]:=0.325;
d[26]:=0.33;
d[27]:=0.335;
d[28]:=0.34;
d[29]:=0.345;@/
d[30]:=0.35;
d[31]:=0.355;
d[32]:=0.36;
d[33]:=0.365;
d[34]:=0.37;@/
d[35]:=0.375;
d[36]:=0.38;
d[37]:=0.39;
d[38]:=0.4;
d[39]:=0.41;@/
d[40]:=0.42;
d[41]:=0.43;
d[42]:=0.44;
d[43]:=0.455;
d[44]:=0.47;@/
d[45]:=0.485;
d[46]:=0.5;
d[47]:=0.515;
d[48]:=0.53;
d[49]:=0.55;@/
d[50]:=0.57;
d[51]:=0.59;
d[52]:=0.61;
d[53]:=0.635;
d[54]:=0.66;@/
d[55]:=0.685;
d[56]:=0.71;
d[57]:=0.74;
d[58]:=0.77;
d[59]:=0.8;@/
d[60]:=0.84;
d[61]:=0.88;
d[62]:=0.92;
d[63]:=0.96;
d[64]:=1.0;
@y
for i:=0 to 8 do d[i]:=i/36;
for i:=9 to 64 do d[i]:=1/9+i/72;
@z
@x load the dither font
write_ln('\input halftone'); write_ln;
@y
write_ln('\input halftone');
write_ln('\font\halftone=dt300[hf,dek]'); write_ln;
@z